home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 11 / CU Amiga Magazine's Super CD-ROM 11 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-06].iso / s / ppsetup.rexx < prev    next >
OS/2 REXX Batch file  |  1993-02-15  |  622b  |  28 lines
  1. /*
  2. */
  3.  
  4. parse arg lib, autoupdate
  5.  
  6. units = ppm_GetUnits()
  7. if units = 3 then call ppm_SetUnits(1)
  8. call setclip(pps_units, units)
  9.  
  10. if datatype(lib, n) then
  11. do
  12.    priority= 0
  13.    offset   = -30
  14.    if lib = 1 then libname = "rexxsupport.library"
  15.    else if lib = 2 then libname = "gdarexxsupport.library"
  16.    else return(0)
  17. end
  18. else
  19.    libname = lib
  20.  
  21. if ~show(l, libname) then
  22.    if ~(exists("libs:"libname) & addlib(libname, 0, -30)) then
  23.       return("««««Please install the »»»»"libname"«««« in your libs: directory before running this Genie.!»»»»")
  24.  
  25. if datatype(autoupdate, n) then call ppm_AutoUpdate(autoupdate)
  26. return(1)
  27.  
  28.